home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / 1-bc-cad.zip / TED.LSP < prev   
Text File  |  1992-05-11  |  325b  |  13 lines
  1. ;THIS FILE ALLOWS YOU TO PICK MANY LINES TO EDIT
  2. (defun c:TED ()
  3.   (command)
  4.   (prompt "\nSelect objects for the loop, ")
  5.   (setq ssloop (ssget))
  6.   (setq i 0)
  7.   (while (setq obj (ssname ssloop (- (setq i (1+ i)) 1)))
  8.     (setq inspt (cdr (assoc '10 (entget obj))))
  9.     (command "DDEDIT" OBJ "")
  10.   ) 
  11.   (prin1)
  12. )
  13.